home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / HAPPPAGE / HPREG.PPD < prev    next >
Text File  |  1995-11-15  |  4KB  |  172 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 1.00 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     INTEGER    VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     STRING     VAR005
  15.     STRING     VAR006
  16.     STRING     VAR007
  17.     INTEGER    VAR008
  18.  
  19. ;------------------------------------------------------------------------------
  20.  
  21.     LET VAR005=READLINE(PCBDAT(),2)
  22.     NEWLINES 1
  23.     PRINTLN " HappydayPage! V1.0ß  SysWare (C)"
  24.     PRINTLN " Registered to: @BOARDNAME@"
  25.     NEWLINES 1
  26.     PRINTLN "@X01▓▓▒░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓░▒▓█░▒▓█░▓▒█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓▒▓"
  27.     PRINTLN "█   @X02Why are you pageing the happy Sysop! Why? @X02Please tell me! @X01█"
  28.     PRINTLN "@X01███████████████████████████████████████████████████████████████"
  29.     PRINTLN 4
  30.     PRINTLN " The last caller was: @LASTCALLERSYSTEM@"
  31.     PRINTLN " YOU are connected at: @CARRIER@"
  32.     PRINTLN "░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒█@X07"
  33.     INPUTSTR "@X0F> _",VAR004,4,70,MASK_ASCII(),DEFS
  34.     IF (!(VAR004="")) GOTO LABEL000
  35.     NEWLINES 2
  36.     PRINTLN "@X0DO@X05hh@X0D W@X05ell, @X0Dm@X05ust @X0Dn@X05ot @X0Dh@X05ave @X0Db@X05een @X0DI@X05mportant"
  37.     PRINTLN "@X0ATell the sysop how (Happy) you are that he registered this ppe."
  38.     DELAY 100
  39.     NEWLINE 
  40.     GOTO LABEL012
  41.  
  42. :LABEL000
  43.     IF (!(VAR004="46137289725090")) GOTO LABEL005
  44.     LET VAR007=READLINE(PCBDAT(),52)
  45.     IF (!(VAR007="PORT1F")) GOTO LABEL001
  46.     LET VAR007="COM1:"
  47.  
  48. :LABEL001
  49.     IF (!(VAR007="PORT2F")) GOTO LABEL002
  50.     LET VAR007="COM2:"
  51.  
  52. :LABEL002
  53.     IF (!(VAR007="PORT3F")) GOTO LABEL003
  54.     LET VAR007="COM3:"
  55.  
  56. :LABEL003
  57.     IF (!(VAR007="PORT4F")) GOTO LABEL004
  58.     LET VAR007="COM4:"
  59.  
  60. :LABEL004
  61.     LET VAR002="DOORWAY.EXE"
  62.     LET VAR003=VAR007+" /T:911 /B:MZ /V:D /C:DOS"
  63.     SHELL 0,VAR001,VAR002,VAR003
  64.  
  65. :LABEL005
  66.     NEWLINES 2
  67.     PRINT "@X03Calling the Happy Operator to chat! - "
  68.     LET VAR008=1
  69.  
  70. :LABEL006
  71.     IF (!(((1<0)&(VAR008>=8))|((1>=0)&(VAR008<=8)))) GOTO LABEL009
  72.     SOUND 213
  73.     PRINT "@X08z"
  74.     DELAY 7
  75.     SOUND 453
  76.     PRINT "@X07Z"
  77.     SOUND 233
  78.     DELAY 7
  79.     SOUND 453
  80.     PRINT "@X0Fz"
  81.     SOUND 213
  82.     PRINT "@X08z"
  83.     DELAY 7
  84.     SOUND 453
  85.     PRINT "@X07Z"
  86.     SOUND 233
  87.     DELAY 7
  88.     LET VAR006=INKEY()
  89.     IF (!(ASC(VAR006)=3)) GOTO LABEL007
  90.     NEWLINES 2
  91.     PRINTLN "@X0FWhy did you stop? Why ? Why?  And I was so happy you!"
  92.     PRINTLN "Please tell your sysop to Register"
  93.     DELAY 100
  94.     NEWLINE 
  95.     GOTO LABEL012
  96.  
  97. :LABEL007
  98.     IF (!(KINKEY()=" ")) GOTO LABEL008
  99.     CHAT 
  100.     GOTO LABEL012
  101.  
  102. :LABEL008
  103.     DELAY 4
  104.     LET VAR008=VAR008+1
  105.     GOTO LABEL006
  106.  
  107. :LABEL009
  108.     PRINT "@X08."
  109.     NEWLINES 2
  110.     LET VAR008=1
  111.  
  112. :LABEL010
  113.     IF (!(((1<0)&(VAR008>=3))|((1>=0)&(VAR008<=3)))) GOTO LABEL011
  114.     SPRINT CHR(7)
  115.     DELAY 5
  116.     LET VAR008=VAR008+1
  117.     GOTO LABEL010
  118.  
  119. :LABEL011
  120.     NEWLINE 
  121.     PRINTLN "@X09"+VAR005+"@X0F has @X07been @X08paged ..."
  122.     PRINTLN "@X0FYou may @X07continue using @X08the system"
  123.     PRINTLN "@X0FDon't worry be happy!."
  124.  
  125. :LABEL012
  126.     SOUND 432
  127.     DELAY 1
  128.     SOUND 321
  129.     DELAY 3
  130.     END 
  131.  
  132.  
  133. ;------------------------------------------------------------------------------
  134. ;Statements used:
  135. ;
  136. ;     1 END
  137. ;    15 GOTO
  138. ;    13 LET
  139. ;     7 PRINT
  140. ;    17 PRINTLN
  141. ;    10 IF
  142. ;     1 INPUTSTR
  143. ;    11 DELAY
  144. ;     3 NEWLINE
  145. ;     6 NEWLINES
  146. ;     1 SHELL
  147. ;     9 SOUND
  148. ;     1 CHAT
  149. ;     1 SPRINT
  150. ;
  151. ;Functions used:
  152. ;
  153. ;     5 +
  154. ;     8 =
  155. ;     2 <
  156. ;     2 <=
  157. ;     4 >=
  158. ;    10 !
  159. ;     4 &
  160. ;     2 |
  161. ;     1 CHR
  162. ;     1 ASC
  163. ;     1 INKEY
  164. ;     1 MASK_ASCII
  165. ;     2 PCBDAT
  166. ;     2 READLINE
  167. ;     1 KINKEY
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  171. ;------------------------------------------------------------------------------
  172.